gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_ImagesDel.asp

    <!--#include file="Admin_ChkPurview1.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

If Netout.GetCookie("Self")="0" then
	Behind.WriteErrMsg("<br><li>对不起，您没有管理图片的权限！</li>")
	Response.End()
End If

Dim Referer
Dim Action
Dim Values

Referer = Request.ServerVariables("HTTP_REFERER")
Action = Request("Action")
Values = Request("vAction")

Dim TitleId,ImageId
TitleId = Trim(Request("TitleId"))
ImageId = Trim(Request("ImageId"))

Select Case Action
Case "Del"
	IF ImageId = "" And TitleId = "" Then
		Response.Redirect(Referer)
	End IF
	
	Dim arrFilePath
	
	Dim i	
	
	Dim Rs
	Set Rs = Server.CreateObject("adodb.recordset")
	If TitleId<>"" Then
		Rs.Open "Select ImageFile,FileExt,[Id] From Nt_ImgBook where TitleId In("&TitleId&")",Conn,1,1
		arrFilePath = Rs.GetRows()
		Rs.Close
		
		If IsArray(arrFilePath) Then
			ImageId = arrFilePath(2,0)
			For i = 1 To Ubound(arrFilePath,2)
				ImageId = ImageId & "," & arrFilePath(2,i)
			Next
		End If
		
		Conn.Execute("Delete from Nt_Remark Where ImageId In(Select [Id] from Nt_ImgBook Where TitleId In("&TitleId&"))")
		Conn.Execute("Delete from Nt_ImgBook Where TitleId In("&TitleId&")")
		Conn.Execute("Delete from Nt_Title Where TitleId In("&TitleId&")")
	ElseIf ImageId<>"" Then
		Rs.Open "Select ImageFile,FileExt From Nt_ImgBook where [Id] In("&ImageId&")",Conn,1,1
		If Not Rs.Eof Then
			arrFilePath = Rs.GetRows()
		End If
		Rs.Close
		
		Conn.Execute("Delete from Nt_Remark Where ImageId In("&ImageId&")")
		Conn.Execute("Delete from Nt_ImgBook Where [Id] In("&ImageId&")")
	End If

	If IsArray(arrFilePath) Then
		For i = 0 To Ubound(arrFilePath,2)
			Netout.DelFile(Config.ImagePath(0)&Replace(arrFilePath(0,i),".jpg","."&arrFilePath(1,i)))
			Netout.DelFile(Config.ImagePath(1)&arrFilePath(0,i))
			Netout.DelFile(Config.ImagePath(2)&arrFilePath(0,i))
		Next
	End If
Case "Recomm"
	Conn.Execute("update NT_imgbook Set Recomm="&Values&",UpdateTime="&DateString(0)&" where [ID] in("&ImageId&")")
Case "Passed"
	Conn.Execute("update NT_imgbook Set Passed="&Values&",UpdateTime="&DateString(0)&" where [ID] in("&ImageId&")")
Case "Hide"
	Conn.Execute("update NT_imgbook Set IsHide="&Values&",UpdateTime="&DateString(0)&" where [ID] in("&ImageId&")")
End Select
Response.Redirect(Referer)
Set Netout = Nothing
%>